home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 8 (Internal Edition) / Apple R&P Lib Internal v8.0.iso / 5-Fonts & Software / Applications / TopDown® 3.0 / TopDown® / TopDownÆ.rsrc / Post_999 < prev    next >
Text File  |  1990-06-24  |  622b  |  23 lines
  1. 2 div 4 index 1 index add 4 index 2 index add 4 index 3 index sub 4 index 4 index sub
  2. 9 -5 roll pop pop pop pop pop
  3.     matrix currentmatrix
  4.     5 1 roll
  5.  newpath
  6.  3 index 3 index moveto
  7.  1 index 3 index lineto
  8.  0 index 10 sub 2 index exch lineto
  9.  1 index 4 index sub 2 div                  % half width
  10.  dup 2 div 3 index exch sub                             % right - 1/2 ( 1/2 width)
  11.  % cmtx x1  y1  x2  y2  width/2  x2-width/4
  12.  currentpoint translate
  13.  1 index 2 div neg 0 translate
  14.  1  2 index 2 div 10.0 exch div scale
  15.  0 0 3 index 2 div 0 180 arcn
  16.  1 index neg 0 translate
  17.  0 0 3 index 2 div 0 180 arc
  18.  pop
  19.  pop
  20.  closepath    
  21.  pop pop pop pop
  22.  setmatrix
  23.